home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1997 #2 / Amiga Plus Extra 1997 #2.iso / pd / misc / finaltable / finaltable.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1997-02-16  |  1.3 KB  |  66 lines
  1. /*
  2.  
  3. FinalTable v0.2a         
  4. (C)1996 SceptreSoft
  5.  
  6. This is Shareware!  If you find this program useful, 
  7. PLEASE pay the fee and receive the full version.
  8.  
  9. See AmigaGuide for futher details...
  10.  
  11. */
  12.  
  13. Options Results
  14. Status Page
  15. PaNum = Result
  16. Status View
  17. VSize = Result
  18. Status ScrollPos; parse var result ScrollX ScrollY
  19. Status LinePos; parse var result BegLine BegPosition EndLine EndPosition
  20. If EndLine="" then do
  21. Showmessage 1 1 '"First select some text for your table!" "(Please read AmigaGuide for help)" "" " OK " "" ""'
  22. Exit
  23. End
  24.  
  25. MoveToLine Endline endposition
  26. Newparagraph
  27. Type "End"
  28. MoveToLine Begline 0
  29. ShiftDown
  30. MoveToLine (Endline+1) 3
  31. ShiftUp
  32.  
  33. /* Main Actions Part */
  34. Copy
  35.  
  36. Address Command "FinalTable:finaltable"
  37.  
  38. If exists("clips:exp.iff") then do
  39.  
  40. ScreenToFront
  41. WinToFront
  42. Cut
  43. View 40
  44.  
  45. InsertImage "CLIPS:Exp.iff"
  46. ID = RESULT
  47.  
  48. ObjectToFront 0
  49. SetObjectParams 0 TEXTFLOW RightVert FILL Transparent LINKED Yes DISPLAY Full
  50. GetObjectCoords 0; parse var result pg xc yc wid hgt
  51. width=(wid*0.85)
  52. height=(hgt1.2)
  53. RequestText '"Table Width (ruler units)" "How wide would you like your table?" ""'
  54. If Result="" THEN do
  55. width=result
  56. end
  57. RequestText '"Table Height (ruler units)" "How high would you like your table?" ""'
  58. If Result="" THEN do
  59. Height=Result
  60. end
  61. SetObjectCoOrds 0 Pg xc yc Width Height
  62. View VSize
  63. ReDraw
  64.  
  65. End
  66.